(library (words)
  (export filter-vocabulary-words)

  (import
   (except (rnrs base))
   (only (guile)
         lambda* λ
         string=)
   (srfi srfi-1))

  (define filter-vocabulary-words
    (λ (words . filters)
      (let iter ([filters° filters]
                 [words° words])
        (cond
         [(null? filters°) words°]
         [else
          (iter (drop filters° 1)
                ((first filters°) words°))])))))
